home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short37.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  2.1 KB  |  78 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. T0* X173make_runnable(void *C,T0* a1,T0* a2,T0* a3,T0* a4){
  10. int id=((T0*)C)->id;
  11. if (id <= 317) {
  12. if (id <= 268) {
  13. return((T0*)(r268make_runnable(((T268*)C),a1,a2,a3,a4)));
  14. } else {
  15. return((T0*)(r317make_runnable(((T317*)C),a1,a2,a3,a4)));
  16. }} else {
  17. return((T0*)(r568make_runnable(((T568*)C),a1,a2,a3,a4)));
  18. }}
  19. void X355set_rescue_compound(void *C,T0* a1){
  20. int id=((T0*)C)->id;
  21. if (id <= 679) {
  22. if (id <= 297) {
  23. if (id <= 134) {
  24. r134set_rescue_compound(((T134*)C),a1);
  25. } else {
  26. r297set_rescue_compound(((T297*)C),a1);
  27. }} else {
  28. if (id <= 649) {
  29. r649set_rescue_compound(((T649*)C),a1);
  30. } else {
  31. r679set_rescue_compound(((T679*)C),a1);
  32. }}} else {
  33. if (id <= 844) {
  34. if (id <= 696) {
  35. r696set_rescue_compound(((T696*)C),a1);
  36. } else {
  37. r844set_rescue_compound(((T844*)C),a1);
  38. }} else {
  39. if (id <= 853) {
  40. r853set_rescue_compound(((T853*)C),a1);
  41. } else {
  42. r883set_rescue_compound(((T883*)C),a1);
  43. }}}}
  44. void X355set_ensure_assertion(void *C,T0* a1){
  45. int id=((T0*)C)->id;
  46. if (id <= 679) {
  47. if (id <= 297) {
  48. if (id <= 134) {
  49. /*[IRF3.3set_ensure_assertion*/((((T134*)(((T134*)C))))->_ensure_assertion)=(a1);
  50. /*]*/
  51. } else {
  52. /*[IRF3.3set_ensure_assertion*/((((T297*)(((T297*)C))))->_ensure_assertion)=(a1);
  53. /*]*/
  54. }} else {
  55. if (id <= 649) {
  56. /*[IRF3.3set_ensure_assertion*/((((T649*)(((T649*)C))))->_ensure_assertion)=(a1);
  57. /*]*/
  58. } else {
  59. /*[IRF3.3set_ensure_assertion*/((((T679*)(((T679*)C))))->_ensure_assertion)=(a1);
  60. /*]*/
  61. }}} else {
  62. if (id <= 844) {
  63. if (id <= 696) {
  64. /*[IRF3.3set_ensure_assertion*/((((T696*)(((T696*)C))))->_ensure_assertion)=(a1);
  65. /*]*/
  66. } else {
  67. /*[IRF3.3set_ensure_assertion*/((((T844*)(((T844*)C))))->_ensure_assertion)=(a1);
  68. /*]*/
  69. }} else {
  70. if (id <= 853) {
  71. /*[IRF3.3set_ensure_assertion*/((((T853*)(((T853*)C))))->_ensure_assertion)=(a1);
  72. /*]*/
  73. } else {
  74. /*[IRF3.3set_ensure_assertion*/((((T883*)(((T883*)C))))->_ensure_assertion)=(a1);
  75. /*]*/
  76. }}}}
  77.  
  78.